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Annexe D 


Installation des primitives 
TOUCHE? et LISCAR 
de l’Education nationale 


Pour installer les nouvelles versions des primitives TOUCHE? et 
LISCAR, il faut effectuer les opérations suivantes : 


— après avoir mis en service votre ordinateur, il faut utiliser la com- 
mande .RES pour réserver 55 octets à la fin de la mémoire. (Attention : 
cette commande détruit l’espace de travail). 


— si vous utilisez un TO7 sans extension mémoire tapez : 
.RES 32712 


— si vous utilisez un TO7 avec extension mémoire tapez : 
.RES 49096 | 


— si vous utilisez un TO7-70 tapez : 
.RES 57288 


ensuite, vous devez entrer au clavier le programme suivant : 


A la fin de ce programme, vous pouvez le sauvegarder à l’aide de la 
commande : 


SAUVE “LISCAR + CONTENU 


A chaque démarrage vous pourrez rappeler ce programme avec les 
commandes : 


.RES XXXXX 
avec la valeur indiquée au début dépendant de votre machine 


puis : RAMENE ‘LISCAR + 


le programme vous demandera à quelle adresse il doit charger le pro- 
gramme en binaire. Suivant la configuration que vous utilisez vous tape- 
rez le chiffre correspondant comme ci-dessus. 


mt à 


POUR LISCAR+ 

EC [Adresse du ,RES --23] 

CONNE "ACR-TOUCHE? PREM LL 

DONNE "ADR-LISCAR SOMME :40R-TOUCHE? 26 

DONNE "BINAIRE (189 232 9 12 245 37 3 126 24 197 127 96 94 189 230 E 93 39) 
DONNE "BINAIRE PH :BINAIRE (244 231 141 @ 31 126 24 191 199 7 230 25e 938 241) 
CONHE "BINAIRE PH :BINAIRE [16 131 1 96 38 13 239 141 9 12 39 7 111 141 @ 6] 
DONNE "BINAIRE PH :BINAIRE (126 45 246 126 45 243 9) 

.DL : ADR-TOUCHE? :BINAIRE 

FADR "TOUCHE? : ADR-TOUCHE? 

FADR "LISCAR : ADR-LISCAR 

EFN "ADR-TOUCHE? 

EFN “ADR-LISCAR 

EFN "BINAIRE 

EFP ?LISCAR+ 

EFP "OL 

EFP ’FÂCR 

EFP ‘loc 

EFP "loc-bis 

EFP "écdr 

EFP "#rplacd 

FIN 


POUR .DL :4 :L 

SI VIDE? :L [(STOP] 
«DEP : A PREM :L 

.DL SOMME : A 1 SP :L 
FIN 


POUR FADCR :F :A 
*rplacd Xcdr 2 + %cdr 10c :F :4 
FIN 


POUR 19c :m 
RENDS #cdr € + loc-bis "m 
FI 


POUR loc-bis :m 
SI MOT? :m [] 
RENCS “car 25173 
FIN 


POUR %cdr :a 
RENCS SOMME PROD 256 .EX4 :a ,EX4 SOMME :3a 1 
FIM 


POUR #rplacd :a :% 

SI PLACE < 12 [IRECYCLE] 
. DEP :a QUOT :+ 256 

«DEP ia + 1 RESTE :v 23% 
FIN 


Annexe E 


Programmes d'utilisation 
du PROMOBILE-tortue JEULIN 


L'utilisation du PROMOBILE-tortue JEULIN nécessite deux program- 
mes autodocumentés livrés avec la tortue et fonctionnant avec un TO7-70 
ou un T07 avec extension mémoire. 


Pour les utilisateurs désireux d’entrer ces deux programmes eux-mêmes, 
il est nécessaire de taper les procédures du premier programme sous l’édi- 
teur telles qu’elles sont listées, notamment la dernière ligne MENU et 
ensuite sortir de l’éditeur par CNT C 


Pour sauvegarder ce programme, il faut taper : 
SAUVED ‘MENU 


Taper ensuite le deuxième programme en faisant attention à ne pas taper 
les points d’exclamation de fin de ligne qui signifient seulement que la 
ligne continue à la ligne suivante. 


Pour sauvegarder ce deuxième programme, taper : 
SAUVE ‘‘JEULIN :JEULIN 
Lors d’un démarrage pour rappeler ces programmes tapez : 
RAMENE ‘MENU 


et suivez les instructions qui apparaissent. 





el 


POUR T07-797 
RENDS FLG? RESTE .EXA 65529 16 © 
FIN ; 


POUR RESERVE 

SI 107-797? (DONNE "FIN-DE-MEMOIRE 57272] (DONNE "FIN-DE-MEMDIRE 49980] 
SORTIE 4 1 

EC :FIN-DE-MEMOIRE 

SORTIE 1 

.RES :FIN-DE-MEMOIRE 

FIN 


POUR MENU 


EC [Lorsque Logo-T07 aura redémarré,) 
EC [tapez:) 


[] 
EC C[RAMENE "JEULIN JEULIN) 
[1 


EC ([Pressez n'importe quelle touche pour] 
EC [faire redémarrer Logo-T07,,,] 

ENTREE 1 

SI VIDE? LISCAR [) 

RESERVE 

FIN 


MENU 


DONNE "JEULIN C'JEULIN JEULIN TRANSMETS N’AIME-PAS? JEULINE INIT-SER INSTALLE-H! 
ANDLER ,DL ROBOT ECRAN ALLUME ETEINS JOUE-AIR SONNE RALE RAV RRE RTD RTG RLC RE! 
C RVE JEULIN+ RENOMME COPIEDEF loc loc-bis %cdr #%rplacd MAP LISCAR+ FADR] 


POUR JEULIN 

+ Hand version 24-04-85 par T.Savatier] 
INIT-SER 

EC [Quelques secondes de patience.,,,) 
INSTALLE-HANDLER 

LISCAR+ 

JEULIN+ 

ROBOT 

JOUE-AIR 

MAP [LEFP] [JEULIN INSTALLE-HANDLER ,0L JEULIN+ RENOMME COPIEDEF loc loc-bis %cd! 
r Arplacd LISCAR+ FADR]) 

MAP [EFN]J [JEULIN ADR-TOUCHE? ADR-LISCAR] 
EFP "MAP 

ME 25 : 

EC (Pour agir sur la tortue de sol,] 

EC De les procédures suivantes!) 


EC (AV, AVANCE, RE, RECULE, TD, TG,] 
EC [LC, BC, ALLUME, ETEINS, SONNE,] 
EC (RALE et JOUE-AIR,] 

[] 


EC (Pour n'agir que sur la tortue-écran,] 
EC nn la Procédure ECRAN,.)] 
] 


EC (Pour agir de nouveau sur la tortue de) 
EC [sol, utiliser la procédure ROBOT.) 


LE 
EC lémusez-vous bien!) 
[] 


POUR TRANSMETS :C 
«DEP :CODE-JEULIN ASCII :C 
, ROUT :HANDLER-JEULIN 


28 es .EXA :CODE-JEULIN 95 [EC [La transmission est mauvaise] INIT-SER TRANS! 
METS :C] 


FIN 


POUR N'AIME-PAS? :F :N 

SI NOMBRE? :N [SI PLP? :N 32768 [SI PLG? :N -32767 [RENDS ”FAUXJ)) 
EC MP :F MD :N IN’AIME PAS] 

RENDS "VRAI 

FIN 


POUR JEULINE :N::Ll :M ‘ 
SI VIDE? :L [(STOP] 

SI PLG? SOMME :N 1 PREM :L [TRANSMETS PREM :M JEULINE DIFF :N PREM :L :L :M STD! + 
P] 

JEULINE :N SP :L SP :M 

FIN 


POUR INIT-SER 
.SER 1200 7 
SORTIE 3 
ENTREE 3 
SORTIE 1 
ENTREE 1 

FIN 


POUR INSTALLE-HANDLER 

ENTREE 4 

DONNE "HANDLER-JEULIN PREM LL 

ENTREE 1 

DONNE "CODE-JEULIN SOMME :HANDLER-JEULIN 15 


car : HANDLER-JEULIN (1230 141 @ 11 189 46 78 189 46 53 231 141 Q 1 57 @) 
N 


POUR ,DL :4 :L 

SI VIDE? :L (STOP] 

, DEP : À PREM :L 

.DL SOMME : A4 1 SP :L 
FIN 


POUR ROBOT 
INIT-SER 

DONNE "ROBOT "VRAI 
SI BC? CRBC] [CRLC] 
FIN 


POUR ECRAN 
DONNE "ROBOT FAUX 
FIN 


POUR ALLUME 
TRANSMETS "+ 
FIN 


D. 0 À 


POUR ETEINS 
TRANSMETS ”- 
FIN | | 


POUR JOUE-AIR 
TRANSMETS ?J 
FIN 


POUR SONNE ; 
TRANSMETS K 
FIN 


POUR RÂLE 
TRANSMETS "P 
FIN 


POUR RAV :N 
SI N'AIME-PAST "RAV :N [LOGO] 
SI PLP? :N © [RRE - :N STOP] 


AV :N 

SI :ROBOT [CJEULINE :N (2Q 19 1] [IF A s))] 
FIN Ù Ù 

POUR RRE :N 


SI N'AIME-PAS? ?RRE :N [LOGO] 
SI PLP? :N Q CRAV - :N STOP] 


RE :N 
+ iii [JEULINE :N [29 19 1] [UR t]] 
Ù 


POUR RTD :N 

SI N'AIME-PAS? "RTD :N (LOGO] 

SI PLP? :N Q CRTG - :N STOP] 

TD :N 

+ : ROBOT [CJEULINE :N (120 99 6@ 45 30 15 1] In k h e b D u)) 
FIN 


POUR RTG :N 

SI N'AIME-PAS?7 "RTG :N [LOGO] 

SI PLP? :N @ CRTD - :N STOP] 

TG :N 

SI :ROBOT (CJEULINE :N (120 90 60 45 39 15 1) [o 1 1 f c G v)] 
FIN 


POUR RLC 
LC 


SI :ROBOT (TRANSMETS ’H] 
FIN 


POUR REC 
BC 


SI :ROBOT [TRANSMETS ‘B] 
FIN 


POUR RVE 
VE 


REC 
FIN 


POUR JEULIN+ 

RENOMME "RAV "AV 
RENOMME "RRE RE 
RENOMME "RTD "TD 
RENOMME "RTG "TG 
RENOMME "RLC "LC 
RENOMME "RBC "BC 
RENOMME "RVE "VE 
COPIEDEF "AVANCE "RAV 
COPIEDEF "RECULE "RRE 
FIN 


POUR RENOMME :f :9g 
Arplacd %cdr loc :f %cdr #“cdr loc :g 
is 2cdr loc :g %cdr #“cdr loc "$(#) 


WE 


POUR COPIEDEF :f :g 

*rplacd 8 + %cdr loc :f %cdr 2 + %cdr loc :g 
.DEP 4 + #%cdr loc :f .EXA 4 + %cdr loc :g 
FIN 


POUR loc :m 
_.—. *cdr 2 + loc-bis "m 
N 


POUR loc-bis :m 
SI MOT? :m ![] 
RENDS “car 25173 
FIN 


POUR %cdr :a 
RENDS SOMME PROD 256 ,EXA :a ,EXA SOMME :a 1 
FIN 


POUR #rplacd :a :v 

SI PLACE < 1Q [IRECYCLE] 
.DEP :a QUOT :v 256 

.DEP a + 1 RESTE :v 256 
FIN 


POUR MAP :F il 

SI VIDE? :L [(STOP) 
EXEC «:F PREM :L 
MAP :F SP :iL 

FIN 


POUR LISCAR+ 
ENTREE 4 
DONNE "ADR-TOUCHE? SOMME 16 PREM LL 
ENTREE 1 
DONNE "ADR-LISCAR SOMME :ADR-TOUCHE? 26 
. DL _:ADR-TOUCHE? [189 232 9 12 245 37 3 126 24 107 127 96 94 189 232 6 93 39 24! 
4 23! 141 @ 31 126 24 101 189 7 230 252 98 241 16 131 1 96 38 13 230 141 @ 1e 2! 
9 7 111 141 9 6 126 45 246 1826 45 243 @) 
FADR "TOUCHE? : ADR-TOUCHE? 
se à "LISCAR : ADR-LISCAR 
F 


POUR FADR :F :A 
*rplacd %cdr 2 + “cdr loc :F :A 
FIN 
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